4D Doc Center : CT SET FILLS ATTRIBUTES

4D Chart v13

CT SET FILLS ATTRIBUTES


CT SET FILLS ATTRIBUTES ( Bereich ; Objekte ; Muster ; Farben )

Parameter	Typ	Beschreibung
Bereich	Lange Ganzzahl	4D Chart Bereich
Objekte	Array Lange Ganzzahl	Liste der Objekt-Kennummern
Muster	Array Ganzzahl	Liste der Musternummern
Farben	Array Lange Ganzzahl	Liste der Farbwerte

Beschreibung

Der Befehl CT SET FILLS ATTRIBUTES arbeitet wie der Befehl CT SET FILL ATTRIBUTES, mit dem Unterschied, dass er für eine Liste von Objekten gilt. Im Parameter Objekte übergeben Sie ein Array Lange Ganzzahl mit einer Liste der Objekt-Kennummern, für welche Sie Füllattribute setzen wollen.

Die Parameter Muster und Farben sind Arrays mit den entsprechenden Attributen.

Weitere Informationen dazu finden Sie in der Beschreibung zum Befehl CT SET FILL ATTRIBUTES.

Beispiel

In diesem Beispiel haben Sie ein Formular mit einem 4D Chart Bereich mit Namen vct. Sie möchten gleichzeitig 100 Rechtecke mit bestimmten Linien und Mustern erstellen. Anstatt 100 Mal CT SET LINE ATTRIBUTES und CT SET FILL ATTRIBUTES aufzurufen, füllen Sie Arrays und definieren die Attribute des Rechtecks in einem Aufruf.

Die Methode für das Formular lautet:

 If(Form event=On Load)

    ARRAY LONGINT($ids;100)

    ARRAY INTEGER($pat;100)

    ARRAY INTEGER($pat2;100)

    ARRAY LONGINT($color;100)

    ARRAY LONGINT($color2;100)

    ARRAY LONGINT($ln;100) `oder ARRAY REAL ($ln;100)

    CT SELECT(vct;-1;1)

    CT DO COMMAND(vct;2006)

    For($i;1;100)

       $ids{$i}:=CT Draw rectangle(vCT;40+($i*10);40;40+(($i+1)*10)-2;60;0)

       $pat{$i}:=1+($i%30)

       $pat2{$i}:=1+($i%15)

       $color{$i}:=CT Index to color($i)

       $color2{$i}:=CT Index to color(100-$i)

       $ln{$i}:=1+$i%4

    End for

    CT SET FILLS ATTRIBUTES(vct;$ids;$pat;$color)

    CT SET LINES ATTRIBUTES(vct;$ids;$pat2;$color2;$ln)

 End if